home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 21
/
Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
spg_demo grafik
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
69 lines
10 ifpeek(49234)<>asc("s")thenload" sprite*",8,1
20 sys49152
100 print"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
110 print" *** sprite-graphics - grafik-demo *** "
120 poke53280,6:poke53281,6
130 !gr1;gn0;gc14;ge;gx84;gy67;gi;gp1
135 !ds 255,255,255,255,255,255,255,255
140 fori=1to20:!tp8,2+i,"text hinter der grafik!":next:print""
150 t$="punkte (taste = ende)":gosub50000
160 gosub1000
170 t$="linien (taste = ende)":gosub50000
180 gosub1100
190 t$="rechtecke (taste = ende)":gosub50000
200 gosub1200
210 t$="bloecke (taste = ende)":gosub50000
220 gosub1300
230 t$="bloecke mit muster (taste = ende)":gosub50000
240 gosub1400
250 t$="schmale grafik (taste)":gosub50000
260 poke198,0:!gw0;gx132:wait198,63
270 t$="breite grafik (taste)":gosub50000
275 !gw1;gx84:poke198,0:wait198,1
280 t$="inverse grafik (taste)":gosub50000
290 poke198,0:!gi:wait198,63
300 t$="normale grafik (taste)":gosub50000
310 poke198,0:!gi:wait198,63
320 poke198,0:!tf0,5,7,1,32:goto130
1000 rem punkte
1005 !dm0:k=0:poke198,0
1010 x=96*rnd(ti):y=168*rnd(ti)
1020 !tp0,5,k:!ddx,y:k=k+1:ifpeek(198)=0then1010
1030 return
1100 rem linien
1110 !tf0,5,7,1,32;ge;gi:k=0:poke198,0
1120 x1=96*rnd(ti):y1=168*rnd(ti)
1130 x2=96*rnd(ti):y2=168*rnd(ti)
1140 !dlx1,y1,x2,y2;tp0,5,k:k=k+1:ifpeek(198)=0then1120
1150 return
1200 rem rechtecke
1210 !tf0,5,7,1,32;ge;gi:k=0:poke198,0
1220 x1=96*rnd(ti):y1=168*rnd(ti)
1230 x2=(96-x1)*rnd(ti):y2=(168-y1)*rnd(ti)
1240 !drx1,y1,x2,y2;tp0,5,k:k=k+1:ifpeek(198)=0then1220
1250 return
1300 rem bloecke
1310 !tf0,5,7,1,32;ge;gi;dm2:k=0:poke198,0
1320 x1=96*rnd(ti):y1=168*rnd(ti)
1330 x2=(96-x1)*rnd(ti):y2=(168-y1)*rnd(ti)
1340 !dbx1,y1,x2,y2;tp0,5,k:k=k+1:ifpeek(198)=0then1320
1350 return
1400 rem bloecke mit muster
1410 !tf0,5,7,1,32;ge;gi;dm3:k=0:p=0:poke198,0:!tc 8,3,23,20,6:restore
1420 fori=0to7:readm(i):next:!dsm(0),m(1),m(2),m(3),m(4),m(5),m(6),m(7)
1422 ifp=4thenp=-1:restore
1425 x1=96*rnd(ti):y1=168*rnd(ti)
1430 x2=(96-x1)*rnd(ti):y2=(168-y1)*rnd(ti)
1440 !dbx1,y1,x2,y2;tp0,5,k:k=k+1:p=p+1:ifpeek(198)=0then1420
1450 return
1460 rem muster
1462 data 85,170,85,170,85,170,85,170
1464 data 1,2,4,8,16,32,64,128
1466 data 6,246,246,6,96,111,111,96
1468 data 221,187,119,187,221,187,119,187
1470 data 0,251,251,251,0,191,191,191
50000 rem titel anzeigen
50010 !tf0,24,40,1,32
50020 !tp(39-len(t$))/2,24,"[155]"t$;
50030 return